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PREFACE 

I This instant provides a convenient summary of the SYMPL 

Version 1.3 language as implemented under the control of- the 
following operating systems: 

NOS 1 for the CONTROL DATA® CYBER 170 Models 171, 172, 
173, 174, and 175; CYBER 7D Models 71, 72, 73, and 74; and 
6000 Series Computer Systems 

"\ NOS/BE 1 for the CDC® CYBER 170 Series; CYBER 70 Models 

f 71, 72, 73, and 74; and 6000 Series Computer Systems 

*=» SCOPE 2 for the Control Data CYBER 170 Model 176; 

CYBER 70 Model 76; and 7600 Computer Systems 

This instant is written for a programmer familiar with the SYMPL 1 
language and the operating system under which the SYMPL 1 
~'\ compiler is operating- 

More detailed information can be found in the publications listed 
below. 

Publication Publication Number 

SYMPL Version 1 

Reference Manual 60496400 

SYMPL Version 1 

User's Guide . 60499800 



CDC manuals can be ordered from Control Data 
Literature and Distribution Services, 8001 East 
Bloomington Freeway, Minneapolis, MN 55420. 
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LANGUAGE ELEMENTS 



SYMPL CHARACTER SET 



Letters: A through Z and $ 
Digits: through 9 
Marks: + ( 

) 

[ 



# 

blank 



COMMENTS 



//string// 



string Arbitrary string of characters; semicolon and comment 
delimiter are not valid characters. 

Comments can appear anywhere except within a comment or after 
the name in a DEP declaration. 



IDENTIFIERS 

An identifier is a string of 1 through 12 letters or digits beginning 
with a letter. Programmer-defined identifiers must not duplicate 
reserved words. 
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CONSTANTS 



Constant 


Form 


Real 


+n.n +.n +n. +n.nE+s +.nE+s +n.E+s 




n Coefficient of decimal digits. 




E+s Exponent (D can be used 
instead of E). 




s Base 10 scale factor. 




-293 +322 
Range 10 ,to 10 




Accurate to approximately 15 decimal 
digits. 


Decimal 

Integer 


+n,n . . .n 
-12 m 




n Decimal digit. 




Range -(2 47 -l) to 2 47 -l 


Octal Integer 


n string" 




string String of 1 through 20 octal digits 
through 7. 


Hexadecimal 
Integer 


X"string" 

string String of 1 through 15 hexa- 
decimal digits through 9 and 
A through F. 


Character 


"string" 


/ 


string String of 1 through 240 characters. 




If the character " is to appear in 
the string, it must be specified by 
two consecutive " marks. 


Boolean 


TRUE 




FAL5E 


Status 


S"stvalue" 




stvalue Defined in STATUS declaration. 
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OPERATORS 



Symbol 


Meaning 




Numeric Operators 


+ 


Addition; unary plus. 


- 


Subtraction; unary minus. 


•* 


Multiplication. 


1 


Division. 


** 


Exponentiation. 


Masking Operators 


LNO 


Logical NOT (bit-by-bit NOT). 


LAN 


Logical AND (bit-by-bit AND). 


LOR 


Logical OR (bit-by-bit OR). 


LXR 


Logical exclusive OR. 


LIM 


Logical imply. 


LQV 


Logical equivalent. 


Relational Operators 


EQ 


Is equal to. 


GR 


Is greater than. 


GQ 


Is greater than or equal to. 


LQ 


Is less than or equal to. 


L5 


Is less than. 


NQ 


Is not equal to. 


Boolean Logical Operators 


NOT 


Negation. 


AND 


Conjunction. 


OR 


Union. 
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DECLARATIONS 

ARRAY HEADER DECLARATION 

ARRAY name [low:up, low:up, . . .] alloc(esize); 

name Identifier; optional unless in BASED ARRAY, XDEF, or 
XREF declaration. 

low:up Lower and upper array bounds; maximum of seven 
dimensions. 

alloc Allocation. 

P Parallel; first word of each entry is allocated 
contiguously followed by the second word of each 
entry, and so forth. 

5 Serial; ail the words of one entry are allocated 
contiguously. 

esize Number of words in array entry. 

ARRAY ITEM DECLARATION 

ITEM name type(epjfbit,size)= [preset] , 

name type(ep 3 fbit,size)= [preset] , . . . ; 






name 


Id en 


tifier. 


type 


Type of 


array item; optional. 




B 




Boolean 




C 




Character 




I 




Signed integer; default 




u 




Unsigned integer 




R 




Real 




Srstlist 


Status 




ep Word number in which item occurs; word numbering starts 

at 0. 

fbit Bit position at which item begins. 

size Item length. 

preset Initialization value; optional. Not relevant for based 
arrays. 
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BASED ARRAY DECLARATION 

BASED array-dec 

BA5ED BEGIN array-dec array-dec . . - END 



array-dec Full ARRAY declaration including the ARRAY header 
declaration and the ARRAY ITEM declaration. 



COMMON DECLARATION 

COMMON name,- data-dec 

\ 

) COMMON name; BEGIN data-dec data-dec . . . END 

name Name of common; if omitted, blank common is used. 

data-dec Declaration for a scalar, array or based array. Blank 

common cannot be initialized at load time. 



FUNCTION AS FORMAL 
PARAMETER DECLARATION 



FUNC name type; 

name Formal name of function. 

type Type of function. 

B Boolean 

C(lgth) Character with lgth characters 

I Signed integer 

U Unsigned integer 

R Real 

S Status 
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ITEM DECLARATION 

ITEM name type=preset, name type=preset, . . . ; 

name Identifier- 
type Type of item; optional. 

B Boolean 

C(Igth) Character with Igth characters 

I Signed integer; default 

U Unsigned integer 

R Real 

Srstlist Status 
preset Initialization value; optional. 

LABEL DECLARATION 

LABEL name, name, . . . ; 
name Identifier. 

PROCEDURE AS FORMAL 
PARAMETER DECLARATION 

FPRC name; 

name Formal name of procedure. 

STATUS DECLARATION 

STATUS stlist identifier, identifier, . . . ; 

stlist Name of list. 

identifier Status value; can duplicate a reserved word. The first 
identifier is assigned a value of D. 
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STATUS SWITCH DECLARATION 

SWITCH swnamerstlist labehstvalue, labekstvalue, . . . ; 

swname Name of switch. 

stlist Name of status list as declared by a STATUS 

declaration. 

label Label name. 

stvalue Status value from stlist. 

SWITCH DECLARATION 

SWITCH swname label, label, ...» 

swname Name of switch. 

label Label name. 

XDEF DECLARATION 

XDEF xdec 

XDEF BEGIN xdec xdec . . . END 



xdec One of the following that is to be referenced in an 
externally compiled program: 

Full data declaration for scalar, array, based array, or 
switch. 



PROC name; 

FUNC name type; 

LABEL name, name, . . . ; 



604826D0 A 



XREF DECLARATION 

XREF xdec 

XREF BEGIN xdec xdec . . . END 

xdec Any of the following whose storage is declared with XDEF: 
Data declaration for a scalar without preset. 
Data declaration for an array without preset. 
Data declaration far a based array. 
PROC name; 
FUNC name type; 
LABEL name, name, . . . ; 
SWITCH name, name, . . . ; 
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EXECUTABLE STATEMENTS 
EXCHANGE STATEMENT 

vl == v2; 

vl, v2 One of the fallowing: 

Scalar 

Subscripted array item 

P-function 

Bead function 

FOR STATEMENT 

FOR i=aexpl STEP aexp2 DO statement 

FOR i=aexpl STEP aexp2 UNTIL aexp3 DO statement 

FOR i=aexpl WHILE bexp DO statement 

FOR i=aexpl STEP aexp2 WHILE bexp DO statement 

FOR i^aexpl DO statement 

i Counter for loop. 

aexpl Arithmetic expression indicating initial value of i. 

aexp2 Arithmetic expression indicating value to be added 

to i. 

aexp3 Arithmetic expression indicating last value for i. 

statement Statement to be repeatedly executed. 

bexp Boolean expression that must be TRUE for loop 

execution. 

GOTO STATEMENT 

GOTO label; 

label Name of a label. 

GOTO swlist [exp] j 

swlist Name of a switch list. 

exp Arithmetic expression whose value is an integer. 
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IF STATEMENT 

IF bexp THEN statementl 

IF bexp THEN statementl ESLE statementZ 

bexp Boolean expression. 

statementl Statement executed when bexp is TRUE. 

statement2 Statement executed when bexp is FALSE. 

LABELED STATEMENT 

name: statement 

name Identifier. 

statement Any executable statement; can be a labeled statement. 

REPLACEMENT STATEMENT 

v = exp; 

v One of the following: 

Scalar 

Subscripted array item 

P-function 

Bead function 

Function name 
exp Arithmetic or relational expression. 
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RETURN STATEMENT 

% RETURN; 

STOP STATEMENT 

STOP; 

\ TERM STATEMENT 

TERM 

TEST STATEMENT 1 

TEST name; 

"\ 

name Name of the item used as counter for the loop. 



t 

1 The TEST statement is used only within a FOR statement. 
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COMPILER DIRECTIVES 
$BEGIN DIRECTIVE* 

$BEGIN 

CONTROL DIRECTIVE 

Attributes of Variables 

CONTROL attribute var, var, ; 

attribute One of the following: 

OVERLAP Variable is referenced by more than one 
name. 

DISJOINT Variable is referenced by only one name. 

REACTIVE Array has overlapping subscript 
references. 

INERT Array has no overlapping subscript 

references. 

var Variable with specified attribute; if omitted, all 

subsequently declared variables are affected until 
respecified. 

Core Residence Selection 

CONTROL LEVELn name, name, . . . ; 

n Memory in which common blocks or based arrays are to 

reside. 

For CYBER 7D Model 76 and 7600 and CYBER 170 
Model 176 

1 5mall core memory 

2 Large core memory accessed directly 

3 Large core memory accessed by block transfer to 
small core memory 








?$BEGIN is used in conjunction with $END. 
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For CYBER 70 Models 71, 72, 73, and 74; CYBER 170 
Models 171, 172, 173, 174, and 175; and 6000 series systems 

1,2 Central memory. 

3 Extended core storage accessed by block transfer 
to central memory. 

name Name of a common block or based array. 



FOR Loop Control 



CONTROL loDptypej 



looptype Type of FOR loop to be generated 

FASTLOOP Test and branch at end of loop. 

SLOWLOOP Test and branch at beginning of 

loop. 



Compilation Option Selection 



CONTROL control-word; 



control- 
word 



One of the following: 



PACK 

PRE5ET 

FTNCALL 

TRACEBACK 



Pack switch code. 

Preset items in named common. 

Turn on control statement 
F parameter. 

Generate traceback code. 



6D4B2600 A 



13 



Conditional Compilation' 

CONTROL condition-word constl, const2; 



condition- 
ward 



constl, 
const2 




One of the following: 

IFEQ constl equal to const2 

IFL5 constl less than const2 

IFLQ constl less than or equal to const2 

IFGR constl greater than const2 

IFGQ constl greater than or equal to const2 

IFNQ constl not equal to const2 

Constants to be tested. 





Listing Control 

CONTROL control-word; 



control- 
word 



One of the following: 
EJECT Skip to new page 

LIST Resume listing 

NOLIST Suspend listing 

OBJLIST List object code 



Weak External 

CONTROL WEAK name, name, . . . ; 

name Name of array, based array, function, label, item, 
procedure, or switch. 





'Conditional statements must be bracketed between the CONTROL 
directive and either CONTROL FI or CONTROL ENDIF. 




14 



604826DD A 



DEF DIRECTIVE 

DEF name (param,paramj . . .) #character-string#; 

name Identifier by which character string is to be 

referenced. 

param Optional formal parameter. 

character- DEF body that is to replace references to the DEF 
string name. 

$END DIRECTIVE* 

$END 



'$END is used in conjunction with $BEGIN. 
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PROGRAM STRUCTURE 
MAIN PROGRAM 

A main program consists of a program header followed by a series of 
declarations and statements and ended by a TERM statement. 

The format of a main program header is 

PRGM name; 

name Identifier by which program is known. 

PROCEDURES 

A procedure consists of a procedure header followed by an optional 
series of declarations and the procedure body of a single or 
compound statement. 

The format of a procedure header is 

PROC name (param, param, . . .)» 

name Identifier by which procedure is known. 

param Formal parameter; optional. 

Scalar Array 

Label Based array 

Procedure Function 
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FUNCTIONS 

A function consists of a function header followed by an optional 
series of declarations and the function body of a single or compound 
statement. 



The format of a function header is 

FUNC name (param, param, . . .) type; 

name Identifier by which function is known. 

param Formal parameter; optional. 

Scalar Array 

Label Based array 

Procedure Function 

type Type of function result; optional. 

B Boolean 

I Integer; default 

U Unsigned integer 

R Real 

C(lgth) Character of length Igth 

S Status 
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ALTERNATIVE ENTRY POINTS 

ENTRY PROC name (param, param, . . .); 
ENTRY FUNC name (param, param, . . .) type; 

name Identifier by which procedure or function is known, 
param Formal parameter; optional. 
Scalar Array 




type 



Label 
Procedure 



Based array 
Function 



Type of function result; optional. 

B Boolean 

I Integer; default 

U Unsigned integer 

R Real 

C(lgth) Character of length lgth 

S Status 
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EXECUTION TIME 
OUTPUT PROCEDURES 

To use the output procedures, a FORTRAN Extended main program 
must call the SYMPL program. Within the 5YMPL program, the 
output procedures must be declared as external references. 



PROCEDURE PRINT 

PRINT is used to format information to be written to the file 
OUTPUT. 

PRINT(format-string); 

format- Literal duplicating the specifications of a FORTRAN 

string format specification. 



PROCEDURE PRINTFL 

PRINTFL is used to format information to be written to a file with a 
logical file name other than OUTPUT. 

PRINTFL (format-string,fiie); 

format- Literal duplicating the specifications of a FORTRAN 

string format specification. 

file File on which the information is to be written, 

expressed in terms of the file information table for the 
file. 



PROCEDURE LIST 

LIST is used to specify an item or array to be printed. 
LI5T(argumen t); 

argument Item, expression, subscripted array item, etc. whose 
value is to be printed. 

PROCEDURE ENDL 

ENDL is used to terminate an output sequence begun by PRINT or 
PRINTFL. 

ENDL; 
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INTRINSIC FUNCTIONS 
ABS FUNCTION 

ABS(exp) 

exp Expression whose absolute value is to be returned. 

The type of argument determines the type returned. 

Argument Type Type Returned 

Real Real 

- Integer Unsigned integer 

Other Same as argument 

specified in call 

B FUNCTION 

B \firstjlgth^> iname 

first Arithmetic expression specifying first bit to be 

extracted. 

lgth Optional arithmetic expression specifying the number 

of bits to be extracted; default is 1. 

iname Name of scalar or array item from which bits are to be 

extracted. 

C FUNCTION 

C \first,lgth/ iname 

first • Arithmetic expression specifying the first character to 
be extracted. 

lgth Optional arithmetic expression specifying the number 

of characters to be extracted; default is 1. 

iname Name of scalar or array item from which characters 
are to be extracted. 








• 
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LOC FUNCTION 

LOC( argument) 

argument Name of any of the following: 
Scalar 

Subscripted array item 
Procedure 
Function 
Label 
Switch 
Array 
P-function 



P^barray^> 

barray Name of a based array. 



P FUNCTION 
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SYMPL CONTROL STATEMENT 



SYMPL. 
5YMPL,parameter~list. 



A (Abort Job 
After Errors) 



omitted 




Execute next control state- 
ment whether or not errors 
occurred. 



B (Binary Code 
File) 



A 



omitted 
B 

B=0 



B=lfn 



Execute control statement 
after EXIT(S) control state- 
ment if errors occurred. 

Write binary output to file LGO. 



Suppress generation of 
binary output. 

Write binary output to file 
Ifn. 





C (Check Switch 
Range) 



omitted Do not generate code to 

check range of switch 
references. 



D (Pack Switches) omitted 



Generate code to check 
range of switch references. 

Generate one word for 
each switch. 



E (Compile 
$BEGIN/$END 
Statements) 



F (FORTRAN 
Calling 
Sequence) 



H (List All 

Source 
Statements) 



D Generate one word with 

two switch points. 

omitted Do not compile statements 

between $BEGIN and $END. 

E Compile statements 

between $BEGIN and $END. 

omitted Do not compile a word of 

all zeros at the end of 
parameter lists. 

F Compile a word of all zeros 

at the end of parameter 
lists. 

omitted List statements according 

to CONTROL NOLIST/ 
LIST statements. 

H List all statements. 
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I (Source omitted Compile card images from 

Input File) file INPUT. 

I Compile card images from 

file COMIPLE. 

I=lfn Compile card images from 

file ifn. 

K (Points- omitted Do not generate points-not- 

Not-Tested) tested interface code. 

K Generate paints-not-tested 

interface code and trace- 
back code. 

L (Listing File)' omitted Write source statements 

L and diagnostics to file 

OUTPUT. 

L=l Write summary of resources 

used to file OUTPUT. 

L=Q Suppress all listing output 

except diagnostics. 

L=lfn Write source statements 

and diagnostics to file Ifn. 

N (Cross-Reference omitted List only referenced items 

Unreferenced on the cross reference map. 



Items) 



N List ail items on the cross 

reference map. 



O (List Object omitted Do not list binary object 

Code)t code. 

Q=st/end List binary object code by 

range of source statements 
indicated. 

st Number of first state- 
ment; default is 0. 

end Number of last state- 
ment; default is last 
statement. 

0=lfn/st/ List binary object code from 

end specified statements on 

file Ifn. 



'Any L, O, R, or X parameters must be concatenated together. 
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P (Preset 
Common) 



R (List Cross- 
Reference Map)' 



omitted Data items in common 

blocks are not to be 
initialized. 

P Initialize data items in 

common blocks according 
to preset values in the data 
declarations. 

omitted Do not list cross reference 

table and common blocks. 

R List cross reference table 

and common blocks on file 
OUTPUT. 





5 (Execution 
Library) 



R=lfn 



omitted 



T (Syntax 
Check) 



S=0 



5=libl/ 
libZ/ . . 



omitted 



T 



List cross reference table 
and common blocks on file 
lfn. 

Compile LDSET tables 
with references to these 
libraries: 

SYMLIB/FORTRAN 
(NOS and NOS/BE) 

SYMIO/FORTRAN 
(SCOPE 2) 

Suppress LDSET table 
generation. 

Generate LDSET tables 
with references to libraries 
lib. 

Check syntax and generate 
binary code. 

Check syntax but do not 
generate binary code. 






'Any L, O, R, or X parameters must be concatenated together. 
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W (Single State- 
ment Code 
Generation) 



omitted Generate object code with 

multiple source statements 
intermixed. 

W Generate object code that 

maintains a close corre- 
spondence with its source 
statement. 



X (List Storage 
Map)* 



omitted Do not list storage map or 

common blacks. 

X List storage map and 

common blocks on file 
OUTPUT. 



X=lfn 



List storage map and 
common blocks on file lfn. 



Y (Suppress 
Diagnostic 136) 



omitted List diagnostic 136. 

Y Suppress diagnostic 136 but 

take corrective action. 



tAny L, O, R, or X parameters must be concatenated together. 
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RESERVED WORDS 



ABS 

AND 

ARRAY 

BA5ED 
BEGIN 

COMMON 
CONTROL 

DEF 

DO 

ELSE 

END 

ENTRY 

EQ 

FALSE 

FOR 

FPRC 

FUNC 

GOTO 

GQ 
GR 

IF 

ITEM 



LOR 

LQ 

LQV 

LS 

LXR 

NOT 
NQ 

OR 

PRGM 
PROC 

RETURN 

STATUS 

STEP 
STOP 
SWITCH 

TERM 
TEST 
THEN 
TRUE 

UNTIL 

WHILE 






LABEL 

LAN 

LIM 

LNO 

LOC 



XDEF 
XREF 

$BEGIN 
$END 



m 
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STANDARD CHARACTER SETS 



*» 



Display 


CDC 


ASCII 




Hollarith 


Exltrnal 


Graphic 
Subset 


Punch 


Code 


Code 
foetal) 


Graphic 


Punch 

(026) 


BCD 
Coda 


1029) 


(octal) 


00' 


: Icolonj' 1 


B-2 


DO 


; (colon) t ' 


B-2 


072 


01 


A 


12-1 


61 


A 


12-1 


101 


02 


B 


12-2 


62 


H 


12-2 


102 


D3 


C 


12-3 


63 


C 


12-3 


103 


04 


D 


12-4 


64 


D 


12-4 


104 


05 


E 


12-5 


65 


E 


12-5 


105 


06 


F 


12-6 


66 


F 


12-6 


106 


07 


G 


12-7 


67 


G 


12-7 


107 


10 


H 


12-8 


70 


H 


12-8 


110 


11 


1 


12-9 


71 


1 


12 9 


111 


12 


J 


11-1 


41 


J 


11-1 


112 


13 


K 


11-2 


42 


K 


11-2 


113 


14 


L 


11-3 


43 


L 


11-3 


114 


15 


M 


11-4 


44 


M 


11-4 


115 


16 


N 


11-5 


45 


N 


11-5 


116 


17 





11-6 


46 


O 


11-6 


117 


20 


P 


11-7 


47 


T 


11-7 


120 


21 


Q 


11-8 


50 


a 


11-8 


121 


22 


H 


119 


51 


H 


11-9 


122 


23 


S 


0-2 


22 


5 


0-2 


123 


24 


T 


0-3 


23 


T 


0-3 


124 


25 


U 


0-4 


24 


U 


04 


125 


26 


V 


0-5 


25 


V 


0-5 


125 


27 


w 


0-6 


26 


w 


0-6 


127 


30 


X 


0-7 


27 


X 


0-7 


130 


31 


Y 


o-a 


30 


Y 


0-8 


131 


32 


z 


09 


31 


z 


0-9 


132 


33 
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060 


34 


1 


1 


01 


1 


1 


061 


35 


2 


2 


02 


2 


2 


062 


36 


3 


3 


03 


3 


3 


063 


37 


4 


4 


04 


4 


4 


064 


40 


5 


5 


05 


5 


5 


065 


41 


6 


6 


06 


6 


6 


D66 


42 


7 


7 


07 


7 


7 


067 


43 


B 


8 


10 


8 


a 


070 


44 


9 


9 


11 


9 


g 


071 


45 


+ 


12 


60 


+ 


12-8-6 


053 


46 


~ 


11 


40 


• 


11 


055 


47 


* 


ii-e-4 


54 


11-8-4 


052 


50 


/ 


0-1 


21 


/ 


0-1 


057 


51 


{ 


0-8-4 


34 


{ 


12-8-5 


050 


52 


) 


12-6-4 


74 


) 


11-8-5 


051 


53 


5 


11-8 3 


53 


S 


11-8-3 


044 


54 


* 


8-3 


13 


« 


B-6 


075 


55 


blank 


no punch 


20 


blank 


no punch 


040 


56 


, (comma! 


0-8-3 


33 


, (comma) 


0-8-3 


054 


57 


. [period) 


12-8-3 


73 


. (period) 


12-8-3 


056 


60 


= 


0-8-6 


36 


# 


8-3 


043 


61 


I 


8-7 


17 


t 


12-8-2 


133 


62 


] « 


08-2 


32 


3 


11-8-2 


135 


63 


%» 


8-6 


16 


*" 


0-8^1 


045 


64 


* 


8-4 


14 


(quote) 


8-7 


042 


65 


I— 


OS-5 


35 


(underline) - 


0-8-5 


137 


66 


V 


11-0 or 11-8-2 m 


52 


1 


12-8-7 or 11-0" T 


041 


67 


a 


0-8-7 


37 


& 


12 


046 


70 


! 


11-8-5 


55 


' (apostrophe) 


8-5 


047 


71 


1 


11-8-6 


56 


7 


0-8-7 


077 


72 


< 


12-0 or 12-8-2 tT1 


72 


< 


12-8-4 or 12-0 1 


074 


73 


> 


11-8-7 


57 


> 


0-8-0 


076 


74 


c 


8-5 


15 


& 


B-4 


100 


75 


> 


12-8-5 


75 


\ 


0-8-2 


134 


76 


~i 


12-B-6 


76 


— (circumflex) 


11-8-7 


136 


77 


; (semicolon) 


12-8-7 


77 


; (semicolon) 


11-66 


073 


Twelve zero bits at If 


W end of a 60-bit word in a zero byte record are an end of record mark rather than 


two colons. 

'In installations using 




a 63-graphic set, display code 00 has no associated graphic or card code; display 


node 63 is the colon 


(B-2 punch). The % graphic and related card codes do not exist and translations 


yield a blank (55 Q ). 
Ttt The alternate Holler) 




h (026) and ASCII (0291 punches are accepted for input only. 



60482600 A 



27 
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